home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / eiffel / smalleif.97 / se.t / SmallEiffel / bin_c / pretty2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-02  |  34.9 KB  |  1,357 lines
  1. /* ANSI C code generated by SmallEiffel. */
  2. /*
  3. -- SmallEiffel  -- Release (- 0.97)    --      FRANCE
  4. -- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN 
  5. -- University Henri Poincare' - Nancy 1 - email colnet@loria.fr 
  6. -- CRIN (Centre de Recherche en Informatique de Nancy)
  7. -- FRANCE 
  8. */
  9. #include "pretty.h"
  10. void rT43copy(T43 *C,T0 * a1){
  11. /*IF*//*AF*//*AE*/
  12. memcpy(C,a1,s[C->id]);
  13. /*FI*/}
  14. T0 * rT142first_name(T142 *C){
  15. T0 * R=NULL;
  16. R=rT126item((T126*)(C)->_names,1);
  17. return R;
  18. }
  19. void rT142pretty_print_one_name(/*C*/T0 * a1){
  20. /*IF*/if (XrT65is_frozen(a1)) {
  21. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  22. }
  23. /*FI*/XrT65pretty_print(a1);
  24. }
  25. void rT142pretty_print_names(T142 *C){
  26. int _i=0;
  27. _i=1;
  28. rT142pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  29. _i=(_i)+(1);
  30. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  31. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  32. rT142pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  33. _i=(_i)+(1);
  34. }
  35. }
  36. void rT142pretty_print_profile(T142 *C){
  37. rT142pretty_print_names(C);
  38. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  39. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  40. /*)*//*IF*/if (((int)(C)->_result_type)) {
  41. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  42. XrT56pretty_print((C)->_result_type);
  43. }
  44. /*FI*/}
  45. void rT142pretty_print(T142 *C){
  46. rT142pretty_print_profile(C);
  47. /*(IRF3*/rT259put_string((T259*)oRBC27fmt,(T0 *)ms514);
  48. /*)*/rT259put_character((T259*)oRBC27fmt,'\73');
  49. /*IF*/if (((int)(C)->_header_comment)) {
  50. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  51. /*)*/rT259indent((T259*)oRBC27fmt);
  52. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  53. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  54. }
  55. /*FI*/}
  56. void rT142add_into(T142 *C,T0 * a1){
  57. T0 * _fn=NULL;
  58. int _i=0;
  59. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  60. _i=1;
  61. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  62. _fn=rT126item((T126*)(C)->_names,_i);
  63. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  64. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  65. /*UT*/(T43*)oRBC27eh;
  66. rT43add_position(XrT65start_position(_fn));
  67. /*UT*/(T43*)oRBC27eh;
  68. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  69. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  70. /*UT*/(T43*)oRBC27eh;
  71. rT43append(XrT65to_string(_fn));
  72. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  73. }
  74. else {
  75. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  76. }
  77. /*FI*/_i=(_i)+(1);
  78. }
  79. }
  80. T0*oRBC27small_eiffel;
  81. void rT142copy(T142 *C,T0 * a1){
  82. /*IF*//*AF*//*AE*/
  83. memcpy(C,a1,s[C->id]);
  84. /*FI*/}
  85. void rT142make_e_feature(T142 *C,T0 * a1,T0 * a2){
  86. C->_names=a1;
  87. C->_result_type=a2;
  88. }
  89. void rT142make(T142 *C,T0 * a1,T0 * a2){
  90. T0 * _ic=NULL;
  91. int _i=0;
  92. rT142make_e_feature(C,a1,a2);
  93. {T145 *n=((T145*)new(145));
  94. rT145make(n,1,rT126count((T126*)(C)->_names));
  95. C->_values=(T0 *)n;}
  96. _i=1;
  97. while (!((_i)>(((T145*)(C)->_values)->_upper))) {
  98. {T78 *n=((T78*)new(78));
  99. rT78make(n,rT50next_unique((T50*)oRBC27small_eiffel),NULL);
  100. _ic=(T0 *)n;}
  101. rT145put((T145*)(C)->_values,_ic,_i);
  102. _i=(_i)+(1);
  103. }
  104. }
  105. T0 * rT146first_name(T146 *C){
  106. T0 * R=NULL;
  107. R=rT126item((T126*)(C)->_names,1);
  108. return R;
  109. }
  110. void rT146pretty_tail(T146 *C){
  111. rT259put_string((T259*)oRBC27fmt,(T0 *)ms515);
  112. XrT69pretty_print(rT146value(C,1));
  113. }
  114. void rT146pretty_print_one_name(/*C*/T0 * a1){
  115. /*IF*/if (XrT65is_frozen(a1)) {
  116. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  117. }
  118. /*FI*/XrT65pretty_print(a1);
  119. }
  120. void rT146pretty_print_names(T146 *C){
  121. int _i=0;
  122. _i=1;
  123. rT146pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  124. _i=(_i)+(1);
  125. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  126. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  127. rT146pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  128. _i=(_i)+(1);
  129. }
  130. }
  131. void rT146pretty_print_profile(T146 *C){
  132. rT146pretty_print_names(C);
  133. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  134. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  135. /*)*//*IF*/if (((int)(C)->_result_type)) {
  136. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  137. XrT56pretty_print((C)->_result_type);
  138. }
  139. /*FI*/}
  140. void rT146pretty_print(T146 *C){
  141. rT146pretty_print_profile(C);
  142. rT146pretty_tail(C);
  143. rT259put_character((T259*)oRBC27fmt,'\73');
  144. /*IF*/if (((int)(C)->_header_comment)) {
  145. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  146. /*)*/rT259indent((T259*)oRBC27fmt);
  147. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  148. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  149. }
  150. /*FI*/}
  151. void rT146add_into(T146 *C,T0 * a1){
  152. T0 * _fn=NULL;
  153. int _i=0;
  154. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  155. _i=1;
  156. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  157. _fn=rT126item((T126*)(C)->_names,_i);
  158. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  159. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  160. /*UT*/(T43*)oRBC27eh;
  161. rT43add_position(XrT65start_position(_fn));
  162. /*UT*/(T43*)oRBC27eh;
  163. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  164. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  165. /*UT*/(T43*)oRBC27eh;
  166. rT43append(XrT65to_string(_fn));
  167. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  168. }
  169. else {
  170. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  171. }
  172. /*FI*/_i=(_i)+(1);
  173. }
  174. }
  175. void rT146copy(T146 *C,T0 * a1){
  176. /*IF*//*AF*//*AE*/
  177. memcpy(C,a1,s[C->id]);
  178. /*FI*/}
  179. T0 * rT146value(T146 *C,int a1){
  180. T0 * R=NULL;
  181. R=(C)->_value_mem;
  182. return R;
  183. }
  184. void rT146make_e_feature(T146 *C,T0 * a1,T0 * a2){
  185. C->_names=a1;
  186. C->_result_type=a2;
  187. }
  188. void rT146make(T146 *C,T0 * a1,T0 * a2,T0 * a3){
  189. rT146make_e_feature(C,a1,a2);
  190. C->_value_mem=a3;
  191. }
  192. T0 * rT147first_name(T147 *C){
  193. T0 * R=NULL;
  194. R=rT126item((T126*)(C)->_names,1);
  195. return R;
  196. }
  197. void rT147pretty_tail(T147 *C){
  198. rT259put_string((T259*)oRBC27fmt,(T0 *)ms515);
  199. rT73pretty_print((T73*)rT147value(C,1));
  200. }
  201. void rT147pretty_print_one_name(/*C*/T0 * a1){
  202. /*IF*/if (XrT65is_frozen(a1)) {
  203. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  204. }
  205. /*FI*/XrT65pretty_print(a1);
  206. }
  207. void rT147pretty_print_names(T147 *C){
  208. int _i=0;
  209. _i=1;
  210. rT147pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  211. _i=(_i)+(1);
  212. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  213. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  214. rT147pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  215. _i=(_i)+(1);
  216. }
  217. }
  218. void rT147pretty_print_profile(T147 *C){
  219. rT147pretty_print_names(C);
  220. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  221. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  222. /*)*//*IF*/if (((int)(C)->_result_type)) {
  223. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  224. XrT56pretty_print((C)->_result_type);
  225. }
  226. /*FI*/}
  227. void rT147pretty_print(T147 *C){
  228. rT147pretty_print_profile(C);
  229. rT147pretty_tail(C);
  230. rT259put_character((T259*)oRBC27fmt,'\73');
  231. /*IF*/if (((int)(C)->_header_comment)) {
  232. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  233. /*)*/rT259indent((T259*)oRBC27fmt);
  234. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  235. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  236. }
  237. /*FI*/}
  238. void rT147add_into(T147 *C,T0 * a1){
  239. T0 * _fn=NULL;
  240. int _i=0;
  241. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  242. _i=1;
  243. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  244. _fn=rT126item((T126*)(C)->_names,_i);
  245. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  246. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  247. /*UT*/(T43*)oRBC27eh;
  248. rT43add_position(XrT65start_position(_fn));
  249. /*UT*/(T43*)oRBC27eh;
  250. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  251. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  252. /*UT*/(T43*)oRBC27eh;
  253. rT43append(XrT65to_string(_fn));
  254. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  255. }
  256. else {
  257. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  258. }
  259. /*FI*/_i=(_i)+(1);
  260. }
  261. }
  262. void rT147copy(T147 *C,T0 * a1){
  263. /*IF*//*AF*//*AE*/
  264. memcpy(C,a1,s[C->id]);
  265. /*FI*/}
  266. T0 * rT147value(T147 *C,int a1){
  267. T0 * R=NULL;
  268. R=(C)->_value_mem;
  269. return R;
  270. }
  271. void rT147make_e_feature(T147 *C,T0 * a1,T0 * a2){
  272. C->_names=a1;
  273. C->_result_type=a2;
  274. }
  275. void rT147make(T147 *C,T0 * a1,T0 * a2,T0 * a3){
  276. rT147make_e_feature(C,a1,a2);
  277. C->_value_mem=a3;
  278. }
  279. T0 * rT148first_name(T148 *C){
  280. T0 * R=NULL;
  281. R=rT126item((T126*)(C)->_names,1);
  282. return R;
  283. }
  284. void rT148pretty_tail(T148 *C){
  285. rT259put_string((T259*)oRBC27fmt,(T0 *)ms515);
  286. rT74pretty_print((T74*)rT148value(C,1));
  287. }
  288. void rT148pretty_print_one_name(/*C*/T0 * a1){
  289. /*IF*/if (XrT65is_frozen(a1)) {
  290. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  291. }
  292. /*FI*/XrT65pretty_print(a1);
  293. }
  294. void rT148pretty_print_names(T148 *C){
  295. int _i=0;
  296. _i=1;
  297. rT148pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  298. _i=(_i)+(1);
  299. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  300. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  301. rT148pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  302. _i=(_i)+(1);
  303. }
  304. }
  305. void rT148pretty_print_profile(T148 *C){
  306. rT148pretty_print_names(C);
  307. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  308. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  309. /*)*//*IF*/if (((int)(C)->_result_type)) {
  310. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  311. XrT56pretty_print((C)->_result_type);
  312. }
  313. /*FI*/}
  314. void rT148pretty_print(T148 *C){
  315. rT148pretty_print_profile(C);
  316. rT148pretty_tail(C);
  317. rT259put_character((T259*)oRBC27fmt,'\73');
  318. /*IF*/if (((int)(C)->_header_comment)) {
  319. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  320. /*)*/rT259indent((T259*)oRBC27fmt);
  321. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  322. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  323. }
  324. /*FI*/}
  325. void rT148add_into(T148 *C,T0 * a1){
  326. T0 * _fn=NULL;
  327. int _i=0;
  328. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  329. _i=1;
  330. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  331. _fn=rT126item((T126*)(C)->_names,_i);
  332. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  333. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  334. /*UT*/(T43*)oRBC27eh;
  335. rT43add_position(XrT65start_position(_fn));
  336. /*UT*/(T43*)oRBC27eh;
  337. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  338. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  339. /*UT*/(T43*)oRBC27eh;
  340. rT43append(XrT65to_string(_fn));
  341. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  342. }
  343. else {
  344. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  345. }
  346. /*FI*/_i=(_i)+(1);
  347. }
  348. }
  349. T0* rT148clone(T148 *C,T0* a1){
  350. T0* R=NULL;
  351. /*IF*/if (((int)a1)) {
  352. R=(T0 *)new(a1->id);
  353. AF_1
  354. XrT28copy(R,a1);
  355. AF_0
  356. }
  357. /*FI*/return R;
  358. }
  359. void rT148copy(T148 *C,T0 * a1){
  360. /*IF*//*AF*//*AE*/
  361. memcpy(C,a1,s[C->id]);
  362. /*FI*/}
  363. T0 * rT148value(T148 *C,int a1){
  364. T0 * R=NULL;
  365. R=rT149item((T149*)(C)->_values,a1);
  366. return R;
  367. }
  368. void rT148make_e_feature(T148 *C,T0 * a1,T0 * a2){
  369. C->_names=a1;
  370. C->_result_type=a2;
  371. }
  372. void rT148make(T148 *C,T0 * a1,T0 * a2,T0 * a3){
  373. int _i=0;
  374. rT148make_e_feature(C,a1,a2);
  375. {T149 *n=((T149*)new(149));
  376. rT149make(n,1,rT126count((T126*)(C)->_names));
  377. C->_values=(T0 *)n;}
  378. rT149put((T149*)(C)->_values,a3,1);
  379. _i=2;
  380. while (!((_i)>(((T149*)(C)->_values)->_upper))) {
  381. rT149put((T149*)(C)->_values,rT148clone(C,a3),_i);
  382. _i=(_i)+(1);
  383. }
  384. }
  385. T0 * rT150first_name(T150 *C){
  386. T0 * R=NULL;
  387. R=rT126item((T126*)(C)->_names,1);
  388. return R;
  389. }
  390. void rT150pretty_tail(T150 *C){
  391. rT259put_string((T259*)oRBC27fmt,(T0 *)ms515);
  392. rT75pretty_print((T75*)rT150value(C,1));
  393. }
  394. void rT150pretty_print_one_name(/*C*/T0 * a1){
  395. /*IF*/if (XrT65is_frozen(a1)) {
  396. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  397. }
  398. /*FI*/XrT65pretty_print(a1);
  399. }
  400. void rT150pretty_print_names(T150 *C){
  401. int _i=0;
  402. _i=1;
  403. rT150pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  404. _i=(_i)+(1);
  405. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  406. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  407. rT150pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  408. _i=(_i)+(1);
  409. }
  410. }
  411. void rT150pretty_print_profile(T150 *C){
  412. rT150pretty_print_names(C);
  413. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  414. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  415. /*)*//*IF*/if (((int)(C)->_result_type)) {
  416. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  417. XrT56pretty_print((C)->_result_type);
  418. }
  419. /*FI*/}
  420. void rT150pretty_print(T150 *C){
  421. rT150pretty_print_profile(C);
  422. rT150pretty_tail(C);
  423. rT259put_character((T259*)oRBC27fmt,'\73');
  424. /*IF*/if (((int)(C)->_header_comment)) {
  425. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  426. /*)*/rT259indent((T259*)oRBC27fmt);
  427. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  428. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  429. }
  430. /*FI*/}
  431. void rT150add_into(T150 *C,T0 * a1){
  432. T0 * _fn=NULL;
  433. int _i=0;
  434. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  435. _i=1;
  436. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  437. _fn=rT126item((T126*)(C)->_names,_i);
  438. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  439. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  440. /*UT*/(T43*)oRBC27eh;
  441. rT43add_position(XrT65start_position(_fn));
  442. /*UT*/(T43*)oRBC27eh;
  443. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  444. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  445. /*UT*/(T43*)oRBC27eh;
  446. rT43append(XrT65to_string(_fn));
  447. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  448. }
  449. else {
  450. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  451. }
  452. /*FI*/_i=(_i)+(1);
  453. }
  454. }
  455. void rT150copy(T150 *C,T0 * a1){
  456. /*IF*//*AF*//*AE*/
  457. memcpy(C,a1,s[C->id]);
  458. /*FI*/}
  459. T0 * rT150value(T150 *C,int a1){
  460. T0 * R=NULL;
  461. R=(C)->_value_mem;
  462. return R;
  463. }
  464. void rT150make_e_feature(T150 *C,T0 * a1,T0 * a2){
  465. C->_names=a1;
  466. C->_result_type=a2;
  467. }
  468. void rT150make(T150 *C,T0 * a1,T0 * a2,T0 * a3){
  469. rT150make_e_feature(C,a1,a2);
  470. C->_value_mem=a3;
  471. }
  472. T0 * rT151first_name(T151 *C){
  473. T0 * R=NULL;
  474. R=rT126item((T126*)(C)->_names,1);
  475. return R;
  476. }
  477. void rT151pretty_tail(T151 *C){
  478. rT259put_string((T259*)oRBC27fmt,(T0 *)ms515);
  479. rT77pretty_print((T77*)rT151value(C,1));
  480. }
  481. void rT151pretty_print_one_name(/*C*/T0 * a1){
  482. /*IF*/if (XrT65is_frozen(a1)) {
  483. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  484. }
  485. /*FI*/XrT65pretty_print(a1);
  486. }
  487. void rT151pretty_print_names(T151 *C){
  488. int _i=0;
  489. _i=1;
  490. rT151pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  491. _i=(_i)+(1);
  492. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  493. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  494. rT151pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  495. _i=(_i)+(1);
  496. }
  497. }
  498. void rT151pretty_print_profile(T151 *C){
  499. rT151pretty_print_names(C);
  500. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  501. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  502. /*)*//*IF*/if (((int)(C)->_result_type)) {
  503. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  504. XrT56pretty_print((C)->_result_type);
  505. }
  506. /*FI*/}
  507. void rT151pretty_print(T151 *C){
  508. rT151pretty_print_profile(C);
  509. rT151pretty_tail(C);
  510. rT259put_character((T259*)oRBC27fmt,'\73');
  511. /*IF*/if (((int)(C)->_header_comment)) {
  512. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  513. /*)*/rT259indent((T259*)oRBC27fmt);
  514. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  515. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  516. }
  517. /*FI*/}
  518. void rT151add_into(T151 *C,T0 * a1){
  519. T0 * _fn=NULL;
  520. int _i=0;
  521. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  522. _i=1;
  523. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  524. _fn=rT126item((T126*)(C)->_names,_i);
  525. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  526. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  527. /*UT*/(T43*)oRBC27eh;
  528. rT43add_position(XrT65start_position(_fn));
  529. /*UT*/(T43*)oRBC27eh;
  530. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  531. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  532. /*UT*/(T43*)oRBC27eh;
  533. rT43append(XrT65to_string(_fn));
  534. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  535. }
  536. else {
  537. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  538. }
  539. /*FI*/_i=(_i)+(1);
  540. }
  541. }
  542. void rT151copy(T151 *C,T0 * a1){
  543. /*IF*//*AF*//*AE*/
  544. memcpy(C,a1,s[C->id]);
  545. /*FI*/}
  546. T0 * rT151value(T151 *C,int a1){
  547. T0 * R=NULL;
  548. R=(C)->_value_mem;
  549. return R;
  550. }
  551. void rT151make_e_feature(T151 *C,T0 * a1,T0 * a2){
  552. C->_names=a1;
  553. C->_result_type=a2;
  554. }
  555. void rT151make(T151 *C,T0 * a1,T0 * a2,T0 * a3){
  556. rT151make_e_feature(C,a1,a2);
  557. C->_value_mem=a3;
  558. }
  559. T0 * rT152first_name(T152 *C){
  560. T0 * R=NULL;
  561. R=rT126item((T126*)(C)->_names,1);
  562. return R;
  563. }
  564. void rT152pretty_tail(T152 *C){
  565. rT259put_string((T259*)oRBC27fmt,(T0 *)ms515);
  566. rT77pretty_print((T77*)rT152value(C,1));
  567. }
  568. void rT152pretty_print_one_name(/*C*/T0 * a1){
  569. /*IF*/if (XrT65is_frozen(a1)) {
  570. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  571. }
  572. /*FI*/XrT65pretty_print(a1);
  573. }
  574. void rT152pretty_print_names(T152 *C){
  575. int _i=0;
  576. _i=1;
  577. rT152pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  578. _i=(_i)+(1);
  579. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  580. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  581. rT152pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  582. _i=(_i)+(1);
  583. }
  584. }
  585. void rT152pretty_print_profile(T152 *C){
  586. rT152pretty_print_names(C);
  587. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  588. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  589. /*)*//*IF*/if (((int)(C)->_result_type)) {
  590. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  591. XrT56pretty_print((C)->_result_type);
  592. }
  593. /*FI*/}
  594. void rT152pretty_print(T152 *C){
  595. rT152pretty_print_profile(C);
  596. rT152pretty_tail(C);
  597. rT259put_character((T259*)oRBC27fmt,'\73');
  598. /*IF*/if (((int)(C)->_header_comment)) {
  599. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  600. /*)*/rT259indent((T259*)oRBC27fmt);
  601. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  602. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  603. }
  604. /*FI*/}
  605. void rT152add_into(T152 *C,T0 * a1){
  606. T0 * _fn=NULL;
  607. int _i=0;
  608. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  609. _i=1;
  610. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  611. _fn=rT126item((T126*)(C)->_names,_i);
  612. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  613. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  614. /*UT*/(T43*)oRBC27eh;
  615. rT43add_position(XrT65start_position(_fn));
  616. /*UT*/(T43*)oRBC27eh;
  617. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  618. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  619. /*UT*/(T43*)oRBC27eh;
  620. rT43append(XrT65to_string(_fn));
  621. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  622. }
  623. else {
  624. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  625. }
  626. /*FI*/_i=(_i)+(1);
  627. }
  628. }
  629. void rT152copy(T152 *C,T0 * a1){
  630. /*IF*//*AF*//*AE*/
  631. memcpy(C,a1,s[C->id]);
  632. /*FI*/}
  633. T0 * rT152value(T152 *C,int a1){
  634. T0 * R=NULL;
  635. R=(C)->_value_mem;
  636. return R;
  637. }
  638. void rT152make_e_feature(T152 *C,T0 * a1,T0 * a2){
  639. C->_names=a1;
  640. C->_result_type=a2;
  641. }
  642. void rT152make(T152 *C,T0 * a1,T0 * a2,T0 * a3){
  643. rT152make_e_feature(C,a1,a2);
  644. C->_value_mem=a3;
  645. }
  646. T0 * rT153first_name(T153 *C){
  647. T0 * R=NULL;
  648. R=rT126item((T126*)(C)->_names,1);
  649. return R;
  650. }
  651. void rT153pretty_tail(T153 *C){
  652. rT259put_string((T259*)oRBC27fmt,(T0 *)ms515);
  653. rT78pretty_print((T78*)rT153value(C,1));
  654. }
  655. void rT153pretty_print_one_name(/*C*/T0 * a1){
  656. /*IF*/if (XrT65is_frozen(a1)) {
  657. rT259keyword((T259*)oRBC27fmt,(T0 *)ms511);
  658. }
  659. /*FI*/XrT65pretty_print(a1);
  660. }
  661. void rT153pretty_print_names(T153 *C){
  662. int _i=0;
  663. _i=1;
  664. rT153pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  665. _i=(_i)+(1);
  666. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  667. rT259put_string((T259*)oRBC27fmt,(T0 *)ms512);
  668. rT153pretty_print_one_name(rT126item((T126*)(C)->_names,_i));
  669. _i=(_i)+(1);
  670. }
  671. }
  672. void rT153pretty_print_profile(T153 *C){
  673. rT153pretty_print_names(C);
  674. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  675. /*)*//*(IRF3*//*)*//*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  676. /*)*//*IF*/if (((int)(C)->_result_type)) {
  677. rT259put_string((T259*)oRBC27fmt,(T0 *)ms513);
  678. XrT56pretty_print((C)->_result_type);
  679. }
  680. /*FI*/}
  681. void rT153pretty_print(T153 *C){
  682. rT153pretty_print_profile(C);
  683. rT153pretty_tail(C);
  684. rT259put_character((T259*)oRBC27fmt,'\73');
  685. /*IF*/if (((int)(C)->_header_comment)) {
  686. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  687. /*)*/rT259indent((T259*)oRBC27fmt);
  688. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(1);
  689. /*)*/rT57pretty_print((T57*)(C)->_header_comment);
  690. }
  691. /*FI*/}
  692. void rT153add_into(T153 *C,T0 * a1){
  693. T0 * _fn=NULL;
  694. int _i=0;
  695. C->_base_class=rT44base_class((T44*)XrT65start_position(rT126item((T126*)(C)->_names,1)));
  696. _i=1;
  697. while (!((_i)>(rT126count((T126*)(C)->_names)))) {
  698. _fn=rT126item((T126*)(C)->_names,_i);
  699. /*IF*/if (rT59has((T59*)a1,XrT65to_key(_fn))) {
  700. _fn=XrT60first_name(rT59at((T59*)a1,XrT65to_key(_fn)));
  701. /*UT*/(T43*)oRBC27eh;
  702. rT43add_position(XrT65start_position(_fn));
  703. /*UT*/(T43*)oRBC27eh;
  704. rT43add_position(XrT65start_position(rT126item((T126*)(C)->_names,_i)));
  705. rT43error((T43*)oRBC27eh,(T0 *)ms417);
  706. /*UT*/(T43*)oRBC27eh;
  707. rT43append(XrT65to_string(_fn));
  708. rT43error((T43*)oRBC27eh,(T0 *)ms37);
  709. }
  710. else {
  711. rT59put((T59*)a1,(T0 *)C,XrT65to_key(_fn));
  712. }
  713. /*FI*/_i=(_i)+(1);
  714. }
  715. }
  716. void rT153copy(T153 *C,T0 * a1){
  717. /*IF*//*AF*//*AE*/
  718. memcpy(C,a1,s[C->id]);
  719. /*FI*/}
  720. T0 * rT153value(T153 *C,int a1){
  721. T0 * R=NULL;
  722. R=(C)->_value_mem;
  723. return R;
  724. }
  725. void rT153make_e_feature(T153 *C,T0 * a1,T0 * a2){
  726. C->_names=a1;
  727. C->_result_type=a2;
  728. }
  729. void rT153make(T153 *C,T0 * a1,T0 * a2,T0 * a3){
  730. rT153make_e_feature(C,a1,a2);
  731. C->_value_mem=a3;
  732. }
  733. T0* rT155name(T155 *C){
  734. T0* R=NULL;
  735. /*IF*/if ((C)->_is_ensure_then) {
  736. R=(T0 *)ms522;
  737. }
  738. else {
  739. R=(T0 *)ms523;
  740. }
  741. /*FI*/return R;
  742. }
  743. void rT155pretty_print(T155 *C){
  744. int _i=0;
  745. rT259indent((T259*)oRBC27fmt);
  746. rT259keyword((T259*)oRBC27fmt,rT155name(C));
  747. rT259level_incr((T259*)oRBC27fmt);
  748. /*IF*/if (((int)(C)->_header_comment)) {
  749. rT57pretty_print((T57*)(C)->_header_comment);
  750. }
  751. else {
  752. rT259indent((T259*)oRBC27fmt);
  753. }
  754. /*FI*//*IF*/if (((int)(C)->_list)) {
  755. _i=1;
  756. while (!((_i)>(((T156*)(C)->_list)->_upper))) {
  757. /*IF*/if ((((T259*)oRBC27fmt)->_zen_mode)&&((_i)==(((T156*)(C)->_list)->_upper))) {
  758. /*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(0);
  759. /*)*/}
  760. else {
  761. /*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(1);
  762. /*)*/}
  763. /*FI*/rT259indent((T259*)oRBC27fmt);
  764. rT62pretty_print((T62*)rT156item((T156*)(C)->_list,_i));
  765. _i=(_i)+(1);
  766. }
  767. }
  768. /*FI*/rT259level_decr((T259*)oRBC27fmt);
  769. rT259indent((T259*)oRBC27fmt);
  770. }
  771. void rT155copy(T155 *C,T0 * a1){
  772. /*IF*//*AF*//*AE*/
  773. memcpy(C,a1,s[C->id]);
  774. /*FI*/}
  775. void rT155make(T155 *C,T0 * a1,T0 * a2,T0* a3){
  776. C->_start_position=a1;
  777. C->_header_comment=a2;
  778. C->_list=a3;
  779. }
  780. T0* rT135name(T135 *C){
  781. T0* R=NULL;
  782. /*IF*/if ((C)->_is_require_else) {
  783. R=(T0 *)ms519;
  784. }
  785. else {
  786. R=(T0 *)ms520;
  787. }
  788. /*FI*/return R;
  789. }
  790. void rT135pretty_print(T135 *C){
  791. int _i=0;
  792. rT259indent((T259*)oRBC27fmt);
  793. rT259keyword((T259*)oRBC27fmt,rT135name(C));
  794. rT259level_incr((T259*)oRBC27fmt);
  795. /*IF*/if (((int)(C)->_header_comment)) {
  796. rT57pretty_print((T57*)(C)->_header_comment);
  797. }
  798. else {
  799. rT259indent((T259*)oRBC27fmt);
  800. }
  801. /*FI*//*IF*/if (((int)(C)->_list)) {
  802. _i=1;
  803. while (!((_i)>(((T156*)(C)->_list)->_upper))) {
  804. /*IF*/if ((((T259*)oRBC27fmt)->_zen_mode)&&((_i)==(((T156*)(C)->_list)->_upper))) {
  805. /*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(0);
  806. /*)*/}
  807. else {
  808. /*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(1);
  809. /*)*/}
  810. /*FI*/rT259indent((T259*)oRBC27fmt);
  811. rT62pretty_print((T62*)rT156item((T156*)(C)->_list,_i));
  812. _i=(_i)+(1);
  813. }
  814. }
  815. /*FI*/rT259level_decr((T259*)oRBC27fmt);
  816. rT259indent((T259*)oRBC27fmt);
  817. }
  818. void rT135copy(T135 *C,T0 * a1){
  819. /*IF*//*AF*//*AE*/
  820. memcpy(C,a1,s[C->id]);
  821. /*FI*/}
  822. void rT135make(T135 *C,T0 * a1,T0 * a2,T0* a3){
  823. C->_start_position=a1;
  824. C->_header_comment=a2;
  825. C->_list=a3;
  826. }
  827. T0 * rT233add_comment(T233 *C,T0 * a1){
  828. T0 * R=NULL;
  829. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  830. R=(T0 *)C;
  831. }
  832.  else {/*AT*//*IF*/if ((rT57count((T57*)a1))==(1)) {
  833. R=(T0 *)C;
  834. }
  835. else {
  836. {T214 *n=((T214*)new(214));
  837. rT214make(n,(T0 *)C,a1);
  838. R=(T0 *)n;}}
  839. /*FI*/}
  840. /*FI*/return R;
  841. }
  842. void rT233pretty_print(T233 *C){
  843. int _semi_colon_flag=0;
  844. rT259indent((T259*)oRBC27fmt);
  845. rT259keyword((T259*)oRBC27fmt,(T0 *)ms553);
  846. /*IF*/if (((int)(C)->_initialize)) {
  847. rT138pretty_print((T138*)(C)->_initialize);
  848. }
  849. /*FI*//*IF*/if (((int)(C)->_invariant_clause)) {
  850. rT234pretty_print((T234*)(C)->_invariant_clause);
  851. }
  852. /*FI*//*IF*/if (((int)(C)->_variant_clause)) {
  853. rT259indent((T259*)oRBC27fmt);
  854. rT259keyword((T259*)oRBC27fmt,(T0 *)ms555);
  855. _semi_colon_flag=((T259*)oRBC27fmt)->_semi_colon_flag;
  856. /*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(0);
  857. /*)*/XrT235pretty_print((C)->_variant_clause);
  858. /*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(_semi_colon_flag);
  859. /*)*/}
  860. /*FI*/rT259indent((T259*)oRBC27fmt);
  861. rT259keyword((T259*)oRBC27fmt,(T0 *)ms556);
  862. rT259level_incr((T259*)oRBC27fmt);
  863. rT259indent((T259*)oRBC27fmt);
  864. /*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(0);
  865. /*)*/XrT66pretty_print((C)->_until_expression);
  866. rT259level_decr((T259*)oRBC27fmt);
  867. rT259indent((T259*)oRBC27fmt);
  868. rT259keyword((T259*)oRBC27fmt,(T0 *)ms557);
  869. rT259indent((T259*)oRBC27fmt);
  870. /*IF*/if (((int)(C)->_loop_body)) {
  871. rT138pretty_print((T138*)(C)->_loop_body);
  872. }
  873. /*FI*/rT259indent((T259*)oRBC27fmt);
  874. rT259keyword((T259*)oRBC27fmt,(T0 *)ms558);
  875. /*IF*/if (((T259*)oRBC27fmt)->_print_end_loop) {
  876. rT259put_end((T259*)oRBC27fmt,(T0 *)ms559);
  877. }
  878. /*FI*/}
  879. void rT233copy(T233 *C,T0 * a1){
  880. /*IF*//*AF*//*AE*/
  881. memcpy(C,a1,s[C->id]);
  882. /*FI*/}
  883. void rT233make(T233 *C,T0 * a1,T0 * a2,T0 * a3,T0 * a4,T0 * a5,T0 * a6){
  884. C->_start_position=a1;
  885. C->_initialize=a2;
  886. C->_invariant_clause=a3;
  887. C->_variant_clause=a4;
  888. C->_until_expression=a5;
  889. C->_loop_body=a6;
  890. }
  891. T0 * rT223add_comment(T223 *C,T0 * a1){
  892. T0 * R=NULL;
  893. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  894. R=(T0 *)C;
  895. }
  896.  else {/*AT*//*IF*/if ((rT57count((T57*)a1))==(1)) {
  897. R=(T0 *)C;
  898. }
  899. else {
  900. {T214 *n=((T214*)new(214));
  901. rT214make(n,(T0 *)C,a1);
  902. R=(T0 *)n;}}
  903. /*FI*/}
  904. /*FI*/return R;
  905. }
  906. void rT223pretty_print(T223 *C){
  907. rT259keyword((T259*)oRBC27fmt,(T0 *)ms548);
  908. rT259level_incr((T259*)oRBC27fmt);
  909. /*IF*/if (!(((T259*)oRBC27fmt)->_zen_mode)) {
  910. rT259indent((T259*)oRBC27fmt);
  911. }
  912. /*FI*//*(IRF3*/(((T259*)oRBC27fmt)->_semi_colon_flag)=(0);
  913. /*)*/XrT66pretty_print((C)->_expression);
  914. rT259level_decr((T259*)oRBC27fmt);
  915. rT259indent((T259*)oRBC27fmt);
  916. rT229pretty_print((T229*)(C)->_when_list);
  917. /*IF*/if (!((C)->_else_compound)) {
  918. /*IF*/if (((int)(C)->_else_position)) {
  919. rT259indent((T259*)oRBC27fmt);
  920. rT259keyword((T259*)oRBC27fmt,(T0 *)ms105);
  921. }
  922. /*FI*/}
  923. else {
  924. rT259indent((T259*)oRBC27fmt);
  925. rT259keyword((T259*)oRBC27fmt,(T0 *)ms105);
  926. rT259level_incr((T259*)oRBC27fmt);
  927. rT138pretty_print((T138*)(C)->_else_compound);
  928. rT259level_decr((T259*)oRBC27fmt);
  929. }
  930. /*FI*/rT259indent((T259*)oRBC27fmt);
  931. rT259keyword((T259*)oRBC27fmt,(T0 *)ms551);
  932. /*IF*/if (((T259*)oRBC27fmt)->_print_end_inspect) {
  933. rT259put_end((T259*)oRBC27fmt,(T0 *)ms552);
  934. }
  935. /*FI*/}
  936. void rT223set_else_compound(T223 *C,T0 * a1,T0 * a2){
  937. C->_else_position=a1;
  938. C->_else_compound=a2;
  939. }
  940. void rT223copy(T223 *C,T0 * a1){
  941. /*IF*//*AF*//*AE*/
  942. memcpy(C,a1,s[C->id]);
  943. /*FI*/}
  944. void rT223make(T223 *C,T0 * a1,T0 * a2){
  945. C->_start_position=a1;
  946. C->_expression=a2;
  947. }
  948. void rT223add_when(T223 *C,T0 * a1){
  949. /*IF*/if (!((C)->_when_list)) {
  950. {T229 *n=((T229*)new(229));
  951. /*(IRF3*/((n)->_list)=(ma(230,0,1,a1));
  952. /*)*/C->_when_list=(T0 *)n;}
  953. }
  954. else {
  955. rT229add_last((T229*)(C)->_when_list,a1);
  956. }
  957. /*FI*/}
  958. T0 * rT87add_comment(T87 *C,T0 * a1){
  959. T0 * R=NULL;
  960. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  961. R=(T0 *)C;
  962. }
  963. else {
  964. {T218 *n=((T218*)new(218));
  965. rT218make(n,(T0 *)C,a1);
  966. R=(T0 *)n;}}
  967. /*FI*/return R;
  968. }
  969. void rT87print_as_target(T87 *C){
  970. /*IF*/if (((C)->_is_written)||(((T259*)oRBC27fmt)->_print_current)) {
  971. rT259put_string((T259*)oRBC27fmt,(T0 *)ms203);
  972. rT259put_character((T259*)oRBC27fmt,'\56');
  973. }
  974. /*FI*/}
  975. T0* rT87to_key(T87 *C){
  976. T0* R=NULL;
  977. R=(C)->_to_string;
  978. return R;
  979. }
  980. void rT87copy(T87 *C,T0 * a1){
  981. /*IF*//*AF*//*AE*/
  982. memcpy(C,a1,s[C->id]);
  983. /*FI*/}
  984. void rT87make(T87 *C,T0 * a1,int a2){
  985. C->_start_position=a1;
  986. C->_is_written=a2;
  987. }
  988. void rT120pretty_print(T120 *C){
  989. int _i=0;
  990. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(2);
  991. /*)*/rT259indent((T259*)oRBC27fmt);
  992. rT259keyword((T259*)oRBC27fmt,(T0 *)ms474);
  993. _i=1;
  994. while (!((_i)>(((T125*)(C)->_items)->_upper))) {
  995. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  996. /*)*/rT122pretty_print((T122*)rT125item((T125*)(C)->_items,_i));
  997. _i=(_i)+(1);
  998. /*IF*/if ((_i)<=(((T125*)(C)->_items)->_upper)) {
  999. rT259put_character((T259*)oRBC27fmt,'\73');
  1000. /*(IRF3*/(((T259*)oRBC27fmt)->_indent_level)=(3);
  1001. /*)*/rT259indent((T259*)oRBC27fmt);
  1002. }
  1003. /*FI*/}
  1004. }
  1005. void rT120copy(T120 *C,T0 * a1){
  1006. /*IF*//*AF*//*AE*/
  1007. memcpy(C,a1,s[C->id]);
  1008. /*FI*/}
  1009. void rT120make(T120 *C,T0 * a1,T0* a2){
  1010. C->_start_position=a1;
  1011. C->_items=a2;
  1012. }
  1013. int rT122for_all(T122 *C){
  1014. int R=0;
  1015. R=!((C)->_list);
  1016. return R;
  1017. }
  1018. void rT122pretty_print(T122 *C){
  1019. int _i=0;
  1020. rT121pretty_print((T121*)(C)->_clients);
  1021. /*IF*/if (rT122for_all(C)) {
  1022. rT259keyword((T259*)oRBC27fmt,(T0 *)ms479);
  1023. }
  1024. else {
  1025. rT126pretty_print((T126*)(C)->_list);
  1026. }
  1027. /*FI*/}
  1028. void rT122copy(T122 *C,T0 * a1){
  1029. /*IF*//*AF*//*AE*/
  1030. memcpy(C,a1,s[C->id]);
  1031. /*FI*/}
  1032. void rT122make_all(T122 *C,T0 * a1){
  1033. C->_clients=a1;
  1034. C->_list=NULL;
  1035. }
  1036. void rT122make(T122 *C,T0 * a1,T0* a2){
  1037. C->_clients=a1;
  1038. {T126 *n=((T126*)new(126));
  1039. rT126make(n,a2);
  1040. C->_list=(T0 *)n;}
  1041. }
  1042. void rT169bracketed_print(T169 *C){
  1043. rT259put_character((T259*)oRBC27fmt,'\50');
  1044. rT169pretty_print(C);
  1045. rT259put_character((T259*)oRBC27fmt,'\51');
  1046. }
  1047. T0 * rT169add_comment(T169 *C,T0 * a1){
  1048. T0 * R=NULL;
  1049. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  1050. R=(T0 *)C;
  1051. }
  1052. else {
  1053. {T218 *n=((T218*)new(218));
  1054. rT218make(n,(T0 *)C,a1);
  1055. R=(T0 *)n;}}
  1056. /*FI*/return R;
  1057. }
  1058. void rT169pretty_print(T169 *C){
  1059. rT259put_string((T259*)oRBC27fmt,(C)->_to_string);
  1060. }
  1061. T0* rT169to_key(T169 *C){
  1062. T0* R=NULL;
  1063. R=(C)->_to_string;
  1064. return R;
  1065. }
  1066. void rT169copy(T169 *C,T0 * a1){
  1067. /*IF*//*AF*//*AE*/
  1068. memcpy(C,a1,s[C->id]);
  1069. /*FI*/}
  1070. void rT169make(T169 *C,T0 * a1){
  1071. C->_to_string=(T0 *)ms291;
  1072. C->_start_position=a1;
  1073. }
  1074. T0 * rT222add_comment(T222 *C,T0 * a1){
  1075. T0 * R=NULL;
  1076. /*IF*/if ((!(a1))||((rT57count((T57*)a1))==(0))) {
  1077. R=(T0 *)C;
  1078. }
  1079. /*AF*/else {
  1080. {T214 *n=((T214*)new(214));
  1081. rT214make(n,(T0 *)C,a1);
  1082. R=(T0 *)n;}}
  1083. /*FI*/return R;
  1084. }
  1085. void rT222copy(T222 *C,T0 * a1){
  1086. /*IF*//*AF*//*AE*/
  1087. memcpy(C,a1,s[C->id]);
  1088. /*FI*/}
  1089. void rT44show(T44 *C){
  1090. T0* _the_line=NULL;
  1091. T0* _str=NULL;
  1092. T0* _n=NULL;
  1093. int _nb=0;
  1094. int _c=0;
  1095. _n=((T46*)(C)->_base_class_name)->_to_string;
  1096. rT33put_string((T33*)oRBC1std_error,(T0 *)ms41);
  1097. rT33put_integer((T33*)oRBC1std_error,(C)->_line);
  1098. rT33put_string((T33*)oRBC1std_error,(T0 *)ms44);
  1099. rT33put_integer((T33*)oRBC1std_error,(C)->_column);
  1100. rT33put_string((T33*)oRBC1std_error,(T0 *)ms45);
  1101. rT33put_string((T33*)oRBC1std_error,_n);
  1102. _str=rT44path(C);
  1103. /*IF*/if (((int)_str)) {
  1104. rT33put_string((T33*)oRBC1std_error,(T0 *)ms427);
  1105. rT33put_string((T33*)oRBC1std_error,_str);
  1106. rT33put_character((T33*)oRBC1std_error,'\51');
  1107. }
  1108. /*FI*/rT33put_string((T33*)oRBC1std_error,(T0 *)ms428);
  1109. /*IF*/if ((/*(IRF4*/((T49*)oRBC27eiffel_parser)->_is_running/*)*/)&&(rT7is_equal((T7*)((T46*)rT49current_class_name((T49*)oRBC27eiffel_parser))->_to_string,_n))) {
  1110. _the_line=(/*UT*/(T58*)oRBC49text,
  1111. rT58item((C)->_line));
  1112. }
  1113.  else if (((int)rT44path(C))) {
  1114. rT58read((T58*)oRBC49text,((T48*)rT44base_class(C))->_path);
  1115. _the_line=(/*UT*/(T58*)oRBC49text,
  1116. rT58item((C)->_line));
  1117. }
  1118. /*FI*//*IF*/if (((int)_the_line)) {
  1119. _c=(C)->_column;
  1120. rT33put_string((T33*)oRBC1std_error,_the_line);
  1121. rT33put_new_line((T33*)oRBC1std_error);
  1122. _nb=1;
  1123. while (!((_nb)==(_c))) {
  1124. /*IF*/if ((rT7item((T7*)_the_line,_nb))==('\11')) {
  1125. rT33put_character((T33*)oRBC1std_error,'\11');
  1126. }
  1127. else {
  1128. rT33put_character((T33*)oRBC1std_error,'\40');
  1129. }
  1130. /*FI*/_nb=(_nb)+(1);
  1131. }
  1132. rT33put_string((T33*)oRBC1std_error,(T0 *)ms429);
  1133. }
  1134. else {
  1135. rT33put_string((T33*)oRBC1std_error,(T0 *)ms430);
  1136. rT33put_string((T33*)oRBC1std_error,_n);
  1137. rT33put_string((T33*)oRBC1std_error,(T0 *)ms431);
  1138. }
  1139. /*FI*/}
  1140. void rT44fatal_error(/*C*/T0* a1){
  1141. rT43fatal_error((T43*)oRBC27eh,a1);
  1142. }
  1143. T0* rT44path(T44 *C){
  1144. T0* R=NULL;
  1145. T0 * _bc=NULL;
  1146. /*IF*/if (/*(IRF4*/((T49*)oRBC27eiffel_parser)->_is_running/*)*/) {
  1147. /*IF*/if ((/*UT*/(T50*)oRBC27small_eiffel,
  1148. rT50is_used(((T46*)(C)->_base_class_name)->_to_string))) {
  1149. _bc=rT46base_class((T46*)(C)->_base_class_name);
  1150. }
  1151. /*FI*/}
  1152. else {
  1153. _bc=rT46base_class((T46*)(C)->_base_class_name);
  1154. }
  1155. /*FI*//*IF*/if (((int)_bc)) {
  1156. R=((T48*)_bc)->_path;
  1157. }
  1158. /*FI*/return R;
  1159. }
  1160. int rT44is_equal(T44 *C,T0 * a1){
  1161. int R=0;
  1162. R=((((((C)->_line)==(((T44*)a1)->_line))&&(((C)->_column)==(((T44*)a1)->_column)))&&(((int)(C)->_base_class_name)))&&(((int)((T44*)a1)->_base_class_name)))&&(((T0 *)((T46*)(C)->_base_class_name)->_to_string)==((T0 *)((T46*)((T44*)a1)->_base_class_name)->_to_string));
  1163. return R;
  1164. }
  1165. T0 * rT44base_class(T44 *C){
  1166. T0 * R=NULL;
  1167. /*IF*/if (/*(IRF4*/((T49*)oRBC27eiffel_parser)->_is_running/*)*/) {
  1168. /*IF*/if (rT7empty((T7*)((T46*)(C)->_base_class_name)->_to_string)) {
  1169. rT44fatal_error((T0 *)ms415);
  1170. }
  1171.  else if ((/*UT*/(T50*)oRBC27small_eiffel,
  1172. rT50is_used(((T46*)(C)->_base_class_name)->_to_string))) {
  1173. R=rT46base_class((T46*)(C)->_base_class_name);
  1174. }
  1175. else {
  1176. rT44fatal_error((T0 *)ms416);
  1177. }
  1178. /*FI*/}
  1179. else {
  1180. R=rT46base_class((T46*)(C)->_base_class_name);
  1181. }
  1182. /*FI*/return R;
  1183. }
  1184. void rT44copy(T44 *C,T0 * a1){
  1185. /*IF*//*AF*//*AE*/
  1186. memcpy(C,a1,s[C->id]);
  1187. /*FI*/}
  1188. void rT44with(T44 *C,int a1,int a2,T0 * a3){
  1189. C->_line=a1;
  1190. C->_column=a2;
  1191. C->_base_class_name=a3;
  1192. }
  1193. void rT44make(T44 *C,int a1,int a2){
  1194. C->_line=a1;
  1195. C->_column=a2;
  1196. C->_base_class_name=rT49current_class_name((T49*)oRBC27eiffel_parser);
  1197. }
  1198. T0*oRBC27eiffel_parser;
  1199. void rT33put_integer(T33 *C,int a1){
  1200. /*(IRF3*/(((T7*)(T0 *)ms42)->_count)=(0);
  1201. /*)*/rT2append_in(a1,(T0 *)ms42);
  1202. rT33put_string(C,(T0 *)ms42);
  1203. }
  1204. void rT33put_new_line(T33 *C){
  1205. rT33put_character(C,'\12');
  1206. }
  1207. void rT33die_with_code(T33 *C,int a1){
  1208. exit(a1);
  1209. }
  1210. void rT33put_string(T33 *C,T0* a1){
  1211. int _i=0;
  1212. _i=1;
  1213. while (!((_i)>(((T7*)a1)->_count))) {
  1214. rT33put_character(C,rT7_ix64((T7*)a1,_i));
  1215. _i=(_i)+(1);
  1216. }
  1217. }
  1218. int rT33is_connected(T33 *C){
  1219. int R=0;
  1220. R=((int)(C)->_path);
  1221. return R;
  1222. }
  1223. void rT33crash(T33 *C){
  1224. rsp();
  1225. rT33die_with_code(C,1);
  1226. }
  1227. void rT33disconnect(T33 *C){
  1228. int _err=0;
  1229. _err=fclose((C)->_output_stream);
  1230. C->_path=NULL;
  1231. C->_output_stream=stderr;
  1232. }
  1233. void rT33connect_to(T33 *C,T0* a1){
  1234. C->_mode=(T0 *)ms453;
  1235. C->_output_stream=rT33fopen(C,a1,(C)->_mode);
  1236. /*IF*/{/*AT*/C->_path=a1;
  1237. }
  1238. /*FI*/}
  1239. void * rT33fopen(T33 *C,T0* a1,T0* a2){
  1240. void * R=NULL;
  1241. rT7extend((T7*)a1,'\0');
  1242. rT7extend((T7*)a2,'\0');
  1243. R=(T0 *)fopen(((Tstring *)a1)->_storage,((Tstring *)a2)->_storage);
  1244. rT7remove_last((T7*)a1,1);
  1245. rT7remove_last((T7*)a2,1);
  1246. return R;
  1247. }
  1248. void rT33copy(T33 *C,T0 * a1){
  1249. /*IF*//*AF*//*AE*/
  1250. memcpy(C,a1,s[C->id]);
  1251. /*FI*/}
  1252. void rT33put_character(T33 *C,char a1){
  1253. char _err='\0';
  1254. _err=fputc(a1,(C)->_output_stream);
  1255. /*IF*/if ((_err)!=(a1)) {
  1256. rT33put_string((T33*)oRBC1std_error,(T0 *)ms1);
  1257. rT33crash(C);
  1258. }
  1259. /*FI*/}
  1260. void rT33make(T33 *C){
  1261. C->_output_stream=stderr;
  1262. }
  1263. T0* rT26get_environment_variable(T26 *C,T0* a1){
  1264. T0* R=NULL;
  1265. rT7extend((T7*)a1,'\0');
  1266. R=((T0 *)getenv(((T7 *)a1)->_storage));
  1267. if (R) R=((T0 *)e2s((char *)R));
  1268. rT7remove_last((T7*)a1,1);
  1269. return R;
  1270. }
  1271. T0*oRBC26backup;
  1272. void rT26automat(T26 *C){
  1273. T0* _a=NULL;
  1274. int _arg=0;
  1275. _arg=1;
  1276. while (!(((_arg)>(argument_count))||(((C)->_state)>(0)))) {
  1277. _a=argument[_arg];
  1278. /*IF*/if ((rT7item((T7*)_a,1))!=('\55')) {
  1279. rT42add_last((T42*)rT26class_names(),_a);
  1280. }
  1281.  else if (rT7is_equal(ms34,_a)) {
  1282. /*IF*/if (((int)(C)->_style)) {
  1283. rT26error_style(C,_a);
  1284. }
  1285. else {
  1286. rT259format_default((T259*)oRBC27fmt);
  1287. C->_style=_a;
  1288. }
  1289. /*FI*/}
  1290.  else if (rT7is_equal(ms436,_a)) {
  1291. /*IF*/if (((int)(C)->_style)) {
  1292. rT26error_style(C,_a);
  1293. }
  1294. else {
  1295. rT259format_zen((T259*)oRBC27fmt);
  1296. C->_style=_a;
  1297. }
  1298. /*FI*/}
  1299.  else if (rT7is_equal(ms437,_a)) {
  1300. /*IF*/if (((int)(C)->_style)) {
  1301. rT26error_style(C,_a);
  1302. }
  1303. else {
  1304. rT259format_end((T259*)oRBC27fmt);
  1305. C->_style=_a;
  1306. }
  1307. /*FI*/}
  1308.  else if (rT7is_equal(ms438,_a)) {
  1309. /*IF*/if (((int)(C)->_style)) {
  1310. rT26error_style(C,_a);
  1311. }
  1312. else {
  1313. rT259format_parano((T259*)oRBC27fmt);
  1314. C->_style=_a;
  1315. }
  1316. /*FI*/}
  1317. else {
  1318. rT38put_string((T38*)oRBC1std_output,(T0 *)ms439);
  1319. rT38put_string((T38*)oRBC1std_output,_a);
  1320. rT38put_string((T38*)oRBC1std_output,(T0 *)ms440);
  1321. C->_state=2;
  1322. }
  1323. /*FI*/_arg=(_arg)+(1);
  1324. }
  1325. /*IF*/if ((/*(IRF4*/((T43*)oRBC27eh)->_nb_errors/*)*/)>(0)) {
  1326. /*UT*/(T43*)oRBC27eh;
  1327. rT43append((T0 *)ms441);
  1328. rT43print_as_error((T43*)oRBC27eh);
  1329. }
  1330. else {
  1331. /*IF*/if (rT42empty((T42*)rT26class_names())) {
  1332. /*UT*/(T43*)oRBC27eh;
  1333. rT43append((T0 *)ms442);
  1334. rT43print_as_error((T43*)oRBC27eh);
  1335. }
  1336. else {
  1337. rT26pretty_print(C);
  1338. }
  1339. /*FI*/}
  1340. /*FI*/}
  1341. int ofBC27directory_separator=0;
  1342. T3 oRBC27directory_separator;
  1343. char rT26directory_separator(T26 *C){
  1344. char R='\0';
  1345. if (ofBC27directory_separator==0){
  1346. ofBC27directory_separator=1;
  1347. R=rT7last((T7*)rT26small_eiffel_directory(C));
  1348. oRBC27directory_separator=R;}
  1349. return oRBC27directory_separator;}
  1350. void rT26fatal_error(/*C*/T0* a1){
  1351. rT43fatal_error((T43*)oRBC27eh,a1);
  1352. }
  1353. void rT26die_with_code(T26 *C,int a1){
  1354. exit(a1);
  1355. }
  1356. T0*oRBC27hlp_file_name;
  1357.